Apple Reference & Presen… 1994 February Supplement/ARPL-Feb-94-Supplement-PowerPC.iso/3rd Party PowerPC Demo Apps/ITEDO IsoDraw-E/ITEDO IsoDraw Demo PPC E/ITEDO IsoDraw Demo PPC E.rsrc/STR#_508.txt

Text File | 1994-01-19 | 5.2 KB | 716 lines

%%BeginProcSet: Adobe_Illustrator881 1.19 0
% Adobe Illustrator (TM) Prolog
% Version 1.19 1/23/1989


% Copyright (C) 1987-1990
% Adobe Systems Incorporated
% All Rights Reserved


currentpacking true setpacking
userdict /Adobe_Illustrator881 72 dict dup begin put
/initialize


{
userdict /Adobe_Illustrator881_vars 29 dict dup begin put
/_lp /none def
/_pf {} def


/_ps {} def
/_psf {} def
/_pss {} def
/_a null def
/_as null def
/_tt 2 array def


/_tl 2 array def
/_tm matrix def
/t {} def
/_gf null def
/_cf 4 array def
/_if null def


/_of false def
/_fc {} def
/_gs null def
/_cs 4 array def
/_is null def
/_os false def


/_sc {} def
/_i null def
Adobe_Illustrator881 begin
Adobe_Illustrator881
    {
    dup xcheck


        {
        bind
        } if
    pop pop
    } forall
end
end
Adobe_Illustrator881 begin


Adobe_Illustrator881_vars begin
newpath
} def
/terminate
{
end
end
} def
/_
null def


/ddef
{
Adobe_Illustrator881_vars 3 1 roll put
} def
/xput
{
dup load dup length exch maxlength eq


    {
    dup dup load dup
    length 2 mul dict copy def
    } if
load begin def end
} def


/npop
{
    {
    pop
    } repeat
} def
/sw
{
stringwidth
exch 5 -1 roll 3 index 1 sub mul add


4 1 roll 3 1 roll 1 sub mul add
} def
/ss
{
3 -1 roll pop
4 1 roll
    {
    2 npop (0) exch


    2 copy 0 exch put pop
    gsave
    false charpath
    currentpoint
    4 index setmatrix


    stroke
    grestore
    moveto
    2 copy rmoveto
    } exch cshow
3 npop
} def
/sp


{
exch pop
    {
    2 npop (0) exch
    2 copy 0 exch put pop
    false charpath
    2 copy rmoveto


    } exch cshow
2 npop
} def
/pl
{
transform
0.25 sub round 0.25 add exch
0.25 sub round 0.25 add exch


itransform
} def
/setstrokeadjust where
{
pop true setstrokeadjust
/c
{
curveto
} def


/C
/c load def
/v
{
currentpoint 6 2 roll curveto
} def
/V
/v load def
/y
{


2 copy curveto
} def
/Y
/y load def
/l
{
lineto
} def
/L
/l load def
/m
{


moveto
} def
}
{
/c
{
pl curveto
} def
/C
/c load def
/v
{
currentpoint 6 2 roll pl curveto


} def
/V
/v load def
/y
{
pl 2 copy curveto
} def
/Y
/y load def
/l
{


pl lineto
} def
/L
/l load def
/m
{
pl moveto
} def
} ifelse
/d
{
setdash


} def
/cf
currentflat def
/i
{
dup 0 eq
    {
    pop cf
    } if
setflat
} def


/j
{
setlinejoin
} def
/J
{
setlinecap
} def
/M
{
setmiterlimit
} def
/w


{
setlinewidth
} def
/H
{} def
/h
{
closepath
} def
/N
{
newpath
} def


/n
/N load def
/F
{
_pf
} def
/f
{
closepath
F
} def
/S
{
_ps
} def


/s
{
closepath
S
} def
/B
{
gsave F grestore
S
} def
/b
{
closepath
B


} def
/W
{
clip
} def
/ta
{
_as moveto
_tt aload pop 4 -2 roll
} def
/tl
{


_tl aload pop translate
} def
/as
{
{
0 0
}
{
2 copy _tt aload pop 4 -2 roll sw


exch neg 2 div exch neg 2 div
}
{
2 copy _tt aload pop 4 -2 roll sw
exch neg exch neg
}


{
0 0
}
} cvlit def
/z
{
/_a exch ddef
/_as as _a get ddef
_a 2 le
    {


    0 _tt astore pop
    0 exch neg _tl astore pop
    }
    {
    0 exch neg _tt astore pop


    neg 0 _tl astore pop
    } ifelse
exch findfont exch scalefont setfont
} def
/tm
{


_tm currentmatrix pop
concat
} def
/I
{
tm
/t
    {
    ta sp
    tl
    } ddef


} def
/o
{
tm
/t
    {
    ta 4 npop
    tl
    newpath
    } ddef
} def
/e
{


tm
/t
    {
    ta _psf
    tl
    newpath
    } ddef
} def
/r
{
tm
/t
    {


    ta _tm _pss
    tl
    newpath
    } ddef
} def
/a
{
tm
/t
    {
    2 copy


    ta _psf
    newpath
    ta _tm _pss
    tl
    newpath
    } ddef
} def
/T
{
_tm setmatrix


    } def
/Z
{
pop
findfont begin
currentdict dup length 1 add dict begin
    {


    1 index /FID ne
        {
        def
        }
        {
        2 npop
        } ifelse


    } forall
/FontName exch def dup length 0 ne
    {
    /Encoding Encoding 256 array copy def


    0 exch
        {
        dup type /nametype eq
            {
            Encoding 2 index 2 index put pop


            1 add
            }
            {
            exch pop
            } ifelse


        } forall
    } if pop
currentdict dup end end
/FontName get exch definefont pop
} def


/u
{} def
/U
{} def
/q
{
gsave
} def
/Q
{
grestore
} def
/`
{
/_i save ddef


6 1 roll 4 npop
concat
userdict begin
/showpage {} def
false setoverprint
pop
} def


/~
{
end
_i restore
} def
/O
{
0 ne
/_of exch ddef
/_lp /none ddef
} def
/R


{
0 ne
/_os exch ddef
/_lp /none ddef
} def
/g
{
/_gf exch ddef
/_fc
{
_lp /fill ne


    {
    _of setoverprint
    _gf setgray
    /_lp /fill ddef
    } if
} ddef
/_pf
{


_fc
fill
} ddef
/_psf
{
_fc
exch pop
ashow
} ddef
/_lp /none ddef
} def


/G
{
/_gs exch ddef
/_sc
{
_lp /stroke ne
    {
    _os setoverprint
    _gs setgray


    /_lp /stroke ddef
    } if
} ddef
/_ps
{
_sc
stroke
} ddef
/_pss
{
_sc


ss
} ddef
/_lp /none ddef
} def
/k
{
_cf astore pop
/_fc
{
_lp /fill ne
    {


    _of setoverprint
    _cf aload pop setcmykcolor
    /_lp /fill ddef
    } if
} ddef
/_pf


{
_fc
fill
} ddef
/_psf
{
_fc
exch pop
ashow
} ddef
/_lp /none ddef
} def


/K
{
_cs astore pop
/_sc
{
_lp /stroke ne
    {
    _os setoverprint
    _cs aload pop setcmykcolor


    /_lp /stroke ddef
    } if
} ddef
/_ps
{
_sc
stroke
} ddef
/_pss
{
_sc


ss
} ddef
/_lp /none ddef
} def
/x
{
/_gf exch ddef
findcmykcustomcolor
/_if exch ddef


/_fc
{
_lp /fill ne
    {
    _of setoverprint
    _if _gf 1 exch sub setcustomcolor
    /_lp /fill ddef


    } if
} ddef
/_pf
{
_fc
fill
} ddef
/_psf
{
_fc
exch pop
ashow
} ddef


/_lp /none ddef
} def
/X
{
/_gs exch ddef
findcmykcustomcolor
/_is exch ddef
/_sc


{
_lp /stroke ne
    {
    _os setoverprint
    _is _gs 1 exch sub setcustomcolor
    /_lp /stroke ddef


    } if
} ddef
/_ps
{
_sc
stroke
} ddef
/_pss
{
_sc
ss
} ddef
/_lp /none ddef


} def
/A
{
pop
} def
currentdict readonly pop end
setpacking
%%EndProcSet